﻿<?php
    include_once '../../../../controlador/php/conexion/Conexion10.php';
    $con = new Conexion10();
    
    $n = $_REQUEST['n'];
    if ($n == 1){
        $Tabla = 'HCNSOLEXA';
        $dias = 5;
    }
    else if($n == 2){
        $Tabla = 'HCNSOLPNQX';
        $dias = 10;
    }
    
    $listado = "SELECT datediff(MINUTE,GETDATE(),asigfecha2) as h,".$Tabla.".OID,ADNINGRESO.AINCONSEC AS INGRESO, ".$Tabla.".HCSCANTI AS CANTIDAD,
                CONVERT(NVARCHAR(1000),".$Tabla.".HCSOBSERV) AS OBSERVACIONES,".$Tabla.".HCSFECSOL AS FECHA_SOLICITUD,
                HCNFOLIO.HCNUMFOL AS NUM_FOLIO,GENSERIPS.SIPCODIGO AS CODIGO, ltrim(rtrim(GENSERIPS.SIPNOMBRE)) AS MUESTRA,
                GENPACIEN.PACNUMDOC AS DOCUMENTO,RTrim(GENPACIEN.PACPRINOM +' '+
                GENPACIEN.PACSEGNOM +' '+ GENPACIEN.PACPRIAPE +' '+ GENPACIEN.PACSEGAPE) AS NOM_PACIENTE,
                HPNDEFCAM.HCACODIGO AS CAMA,GENARESER.GASCODIGO, GENARESER.GASNOMBRE,GENMEDICO.GMENOMCOM AS MEDICO,Case
                When ".$Tabla.".HCSESTADO = '0' Then 'URGENTE' Else 'RUTINARIO'
                End ESTADO, GENPACIEN.GPAFECNAC,Case
                When ADNINGRESO.AINTIPING = '1' Then 'AMBULATORIO' Else 'HOSPITALARIO'
                End CLASE_INGRESO,Case When ADNINGRESO.AINURGCON = '0' Then 'URGENCIAS'
                When ADNINGRESO.AINURGCON = '1' Then 'CONSULTA_EXTERNA'
                When ADNINGRESO.AINURGCON = '2' Then 'NACIDO_HOSPITAL'
                When ADNINGRESO.AINURGCON = '3' Then 'REMITIDO'
                When ADNINGRESO.AINURGCON = '4' Then 'HOSPI_URGENCIAS'
                When ADNINGRESO.AINURGCON = '5' Then 'HOSPITALIZACIÓN'
                When ADNINGRESO.AINURGCON = '6' Then 'IMAGENES'
                When ADNINGRESO.AINURGCON = '7' Then 'LABORATORIO'
                End INGRESO_POR,Case SLNORDSER.SOSESTADO When 0 Then 'REGISTRADO'
                When 1 Then 'CONFIRMADO' When 2 Then 'ANULADO'
                End As ESTADOORDEN,CONVERT(NVARCHAR(100),SLNORDSER.SOSDESORD) AS ORDEN_SERVICIO,
                SLNORDSER.SOSORDSER,segfecindi,segestado,trestado,trfecha,tmestado,tmfecha,inestado,infecha,asigfecha,asigfecha2,cast(asigobserv as text) as asigobserv,
                solcita,fecsolcita,usu_oidsc,cast(obsesolcita as text)as obsesolcita,facturado,usu_oidf,fecfactu,solautori,fecsolau,usu_oidsa,
                autorizar,fecauto,usu_oidau,asirea,tmpnt,tmcual,segmedico,segfecmedico,segusumedico,segvermed,segfecvermed,segusumed 
                ,cast(segobservacion as text)as segobservacion, asighora,USUNOMBRE, USUDESCRI,segimagenes.usu_oid as usu_indi,tmestadon,usu_oidn,tmfechan,autorizarn,fecauton,usu_oidaun 
                ,autorizarno,fecautono,usu_oidauno,cast(segimagenes.segobserva as text)as segobserva,usu_oidobs,segfecobs,
                traisladono,trfechano,usu_oidno,traisladosi,trtipoaislami,trfechapoais,usu_oidpoais,trrazonaisla,obs.segobserva as ob,GENDETCON.GDENOMBRE,RepetirExa,FechaRep,usu_oidRep,InfoPaciente,FechaInfo,usu_oidinfo,
                ExamenC,FechaExamenC,Usu_oidExa
                From GENPACIEN 
                Inner Join ADNINGRESO On GENPACIEN.OID = ADNINGRESO.GENPACIEN 
                Inner Join HCNFOLIO On ADNINGRESO.OID = HCNFOLIO.ADNINGRESO 
                Inner Join GENMEDICO On HCNFOLIO.GENMEDICO = GENMEDICO.OID 
                Inner Join ".$Tabla." On ".$Tabla.".HCNFOLIO = HCNFOLIO.OID 
                Inner Join GENSERIPS On ".$Tabla.".GENSERIPS = GENSERIPS.OID 
                Inner Join SLNSERHOJ On ".$Tabla.".SLNSERHOJ = SLNSERHOJ.OID 
                Inner Join SLNSERPRO On SLNSERHOJ.OID = SLNSERPRO.OID 
                Inner Join SLNORDSER On SLNSERPRO.SLNORDSER1 = SLNORDSER.OID And SLNSERPRO.ADNINGRES1 = SLNORDSER.ADNINGRES1 
                Left Outer Join HPNESTANC On ADNINGRESO.OID = HPNESTANC.ADNINGRES 
                Left Outer Join HPNDEFCAM On HPNESTANC.HPNDEFCAM = HPNDEFCAM.OID
                left join HPNGRUPOS on HPNDEFCAM.HPNGRUPOS = HPNGRUPOS.OID
                left join HPNSUBGRU ON HPNSUBGRU.OID = HPNDEFCAM.HPNSUBGRU 
                left join GENARESER ON GENARESER.OID = HPNSUBGRU.GENARESER 
                left join planillaUsuario..segimagenes on ".$Tabla.".OID  = planillaUsuario..segimagenes.hcnsolexa
                left join planillaUsuario..segtranslado on ".$Tabla.".OID = planillaUsuario..segtranslado.hcnsolexa
                left join planillaUsuario..segtomado on ".$Tabla.".OID = planillaUsuario..segtomado.hcnsolexa
                left join planillaUsuario..seginterpre on ".$Tabla.".OID = planillaUsuario..seginterpre.hcnsolexa
                left join planillaUsuario.. segasigcita on ".$Tabla.".OID = planillaUsuario..segasigcita.hcnsolexa
                left join GENUSUARIO on segimagenes.segmedico = GENUSUARIO.USUNOMBRE
                left join GENDETCON on ADNINGRESO.GENDETCON = GENDETCON.OID
                outer apply(select top 1 * from planillaUsuario..segobservacion
                            where segobservacion.hcnsolexa = ".$Tabla.".OID)as obs
                Where (".$Tabla.".HCSFECSOL > CONVERT(DATETIME, GETDATE() - ".$dias.", 102)) And
                GENSERIPS.GENARESER1  IN (6,7,8,9,10,11,12,14,51,63,90) And HPNESTANC.HESFECSAL Is Null
                Order By ".$Tabla.".HCSFECSOL DESC";
    $res = $con->query($listado);
    while
        ($re = mssql_fetch_array($res)){
        $lista[] = array_map(utf8_encode,$re);
    }
    
     print_r(json_encode($lista));
    $con->cerrarConexion();             
    
?>